home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / mmailp.idb / usr / lib / Zmail / samples / zscript / to-do.zsc.z / to-do.zsc
Encoding:
Text File  |  1997-01-22  |  377 b   |  23 lines
  1. # Sample Z-Script  function: show_As
  2. #              button: To Do
  3.  
  4. function show_As() {
  5. #%
  6. #      show_As
  7. #
  8. # Show all messages that have been marked with an "A" priority.
  9. #%
  10.     unset As
  11.     pick -p A | set As
  12.     if $?As
  13.     ask -l A "Important Messages" $As
  14.     if $status == 0
  15.         display $A
  16.     endif
  17.     unset A
  18.     else
  19.     echo -d "Nothing marked A."
  20.     endif
  21. }
  22. button -n "To Do" show_As
  23.